home *** CD-ROM | disk | FTP | other *** search
/ STraTOS 1997 April & May / STraTOS 1 - 1997 April & May.iso / CD01 / INTERNET / SITES / GRAHAM / XA_6S.ZIP / SOURCE / FORMS.C < prev    next >
Encoding:
C/C++ Source or Header  |  1996-10-14  |  12.9 KB  |  531 lines
  1. /*
  2.  * XaAES - XaAES Ain't the AES
  3.  *
  4.  * A multitasking AES replacement for MiNT
  5.  *
  6.  */
  7.  
  8. #include <stdio.h>
  9. #include <string.h>
  10. #include "XA_DEFS.H"
  11. #include "XA_TYPES.H"
  12. #include "XA_GLOBL.H"
  13. #include "K_DEFS.H"
  14. #include "OBJECTS.H"
  15. #include "FRM_ALRT.H"
  16. #include "STD_WIDG.H"
  17. #include "C_WINDOW.H"
  18. #include "WATCHBOX.H"
  19. #include "FORM_DO.H"
  20.  
  21. #if 0
  22. #define CLIP(tree,obj,x,y,w,h)                \
  23.     object_abs_coords(tree, obj, &x, &y);    \
  24.     w = tree[obj].ob_width;                    \
  25.     h = tree[obj].ob_height;                \
  26.     set_clip(x, y, w, h);
  27. #endif
  28.  
  29. #define CLIP(tree,obj,x,y,w,h)    clear_clip()
  30. #define set_clip(x,y,w,h)        /* We don't want this now! */
  31.  
  32. #if 0
  33. #undef CLIP            /* Those set_clip(..) can't be useful */
  34. #endif
  35.  
  36. /*
  37.     FORM HANDLERS INTERFACE
  38. */
  39.  
  40. #if 0
  41. extern XA_WINDOW *window_list;        /* The global system window stack */
  42. #endif
  43.  
  44. /*
  45.     Primitive version of form_center....
  46.     -this ignores shadows & stuff
  47. */
  48. unsigned long XA_form_center(short clnt_pid, AESPB *pb)
  49. {
  50.     OBJECT *ob = pb->addrin[0];
  51.     short x, y, w, h;
  52.     
  53.     w = ob->ob_width;
  54.     h = ob->ob_height;
  55.     
  56.     x = (display.w - w) / 2;
  57.     y = (display.h - h) / 2;
  58.     
  59.     ob->ob_x = x;
  60.     ob->ob_y = y;
  61.     
  62.     pb->intout[0] = 1;
  63.     pb->intout[1] = x;
  64.     pb->intout[2] = y;
  65.     pb->intout[3] = w;
  66.     pb->intout[4] = h;
  67.     
  68.     return XAC_DONE;
  69. }
  70.  
  71. /*
  72.   Begin/end form handler
  73.   This is important - I hope most programs call this, as XaAES puts it's dialogs
  74.   in windows, and the windows are created here....
  75. */
  76. unsigned long XA_form_dial(short clnt_pid, AESPB *pb)
  77. {    
  78.     XA_CLIENT *client=Pid2Client(clnt_pid);
  79.     XA_WINDOW *dialog_window;
  80.     GRECT r;
  81.     short x, y, w, h;
  82.  
  83.     switch(pb->intin[0])
  84.     {
  85.         case FMD_START:             /* Create a window to put the dialog in */
  86.  
  87.             dialog_window = create_window(clnt_pid, 0, pb->intin[5], pb->intin[6], 
  88.                             pb->intin[7], pb->intin[8]);
  89.  
  90.             x = 2 * dialog_window->x - dialog_window->wx;
  91.             y = 2 * dialog_window->y - dialog_window->wy;
  92.             w = 2 * dialog_window->w - dialog_window->ww + 1;
  93.             h = 2 * dialog_window->h - dialog_window->wh + 1;
  94.  
  95.             delete_window(dialog_window);        /* Dispose of the temporary window we created */
  96.                                                 /* And create the real one. It stay's fixed until form_do is called */
  97.                                                 /* when it gets a MOVE property. */
  98. /* We create a window owned by the client so it will get button clicks for this area (in case it's gonna handle things it's own way) */
  99. #if PRESERVE_DIALOG_BGD
  100.             client->zen = dialog_window = create_window(clnt_pid, STORE_BACK | NO_MESSAGES | NO_WORK, x, y, w, h);
  101. #else
  102.             client->zen = dialog_window = create_window(clnt_pid, NO_WORK, x, y, w, h);
  103. #endif
  104.             dialog_window->is_open = TRUE;
  105.             dialog_window->created_by_FMD_START = TRUE;
  106. /* Set the window title to be the clients name to avoid confusion */
  107.             dialog_window->widgets[XAW_TITLE].stuff = (void*)client->name;
  108.  
  109.             v_hide_c(V_handle);
  110.             pull_wind_to_top(dialog_window);
  111.             display_window(dialog_window);
  112.             v_show_c(V_handle, 1);
  113.             
  114.             break;
  115.         case FMD_GROW:
  116.             break;
  117.         case FMD_SHRINK:
  118.             break;
  119.         case FMD_FINISH:        /* If the client's dialog window is still hanging around, dispose of it.... */
  120.             dialog_window = client->zen;
  121.             if (dialog_window)
  122.             {
  123.                 XA_WINDOW *wl=dialog_window->next;
  124.                 
  125.                 r.g_x=dialog_window->x;    r.g_y=dialog_window->y;
  126.                 r.g_w=dialog_window->w;    r.g_h=dialog_window->h;
  127.             
  128.                 clear_clip();
  129.                 client->zen = NULL;
  130.  
  131.                 dialog_window->is_open=FALSE;
  132.                 send_wind_to_bottom(dialog_window);
  133.                 delete_window(dialog_window);
  134.  
  135.                 v_hide_c(V_handle);
  136.                 display_windows_below(&r,wl);
  137.                 v_show_c(V_handle,1);
  138.     
  139.             }
  140.             break;
  141.     }
  142.     
  143.     pb->intout[0] = 1;
  144.     
  145.     return XAC_DONE;
  146. }
  147.  
  148. unsigned long XA_form_button(short clnt_pid, AESPB *pb)
  149. {
  150.     OBJECT *tree = (OBJECT*)pb->addrin[0];
  151.     short ob = pb->intin[0];
  152.     short is, os, x, y, w, h;
  153.  
  154.     pb->intout[1] = 0;
  155.  
  156.     if (tree[ob].ob_flags & EDITABLE)    /* Select a new editable text field? */
  157.     {
  158.     /*    
  159.      * Shouldn't this really do all that's done in form_do?
  160.      */
  161.  
  162.         pb->intout[1] = ob;
  163.     }
  164.  
  165.     if (((tree[ob].ob_flags & HIDETREE)        /* Was click on a valid selectable object? */
  166.         ||(tree[ob].ob_state & DISABLED))
  167.         ||(!(tree[ob].ob_flags & (SELECTABLE | EXIT | TOUCHEXIT))))
  168.     {
  169.         pb->intout[0] = 1;
  170.         return XAC_DONE;
  171.     }
  172.  
  173.     CLIP(tree, ob, x, y, w, h);
  174.  
  175.     os = tree[ob].ob_state;
  176.     is = os ^ SELECTED;
  177.  
  178.     if (tree[ob].ob_flags & TOUCHEXIT)        /* Change state & exit for TOUCHEXIT objects */
  179.     {
  180. /*
  181.  * Surely radio buttons must be handled as well?
  182.  */
  183.         /* Only selectable objects change appearance! */
  184.         if (tree[ob].ob_flags & SELECTABLE)
  185.         {
  186.             tree[ob].ob_state = is;
  187.             v_hide_c(V_handle);
  188.             draw_object_tree(tree, ob, MAX_DEPTH);
  189.             v_show_c(V_handle, 1);
  190.         }
  191.  
  192.         pb->intout[1] = ob;
  193.         
  194.         pb->intout[0] = 0;
  195.         
  196.         if (pb->intin[1] == 2)    /* Double click? */
  197.         {
  198.             pb->intout[1] |= 0x8000;
  199.         }
  200.         
  201.         return XAC_DONE;
  202.     }
  203.  
  204. /*
  205.  * Should this perhaps be done in watch_object()?
  206.  */
  207.     tree[ob].ob_state = is;
  208.     CLIP(tree, ob, x, y, w, h);
  209.     v_hide_c(V_handle);
  210.     draw_object_tree(tree, ob, MAX_DEPTH);
  211.     v_show_c(V_handle, 1);
  212.         
  213.     if (watch_object(tree, ob, is, os))        /* Do a watch to see if object is really selected */
  214.     {
  215.         if (!(tree[ob].ob_flags&SELECTABLE))
  216.         {
  217.             tree[ob].ob_state=os;
  218.             v_hide_c(V_handle);
  219.             draw_object_tree(tree,ob,2);
  220.             v_show_c(V_handle,1);
  221.         }
  222. /*
  223.  * Surely this should check for radio buttons?
  224.  */
  225.          if (tree[ob].ob_flags & EXIT)
  226.         {
  227.             pb->intout[1] = ob;
  228.             pb->intout[0] = 0;
  229. #ifdef CLIP
  230.             clear_clip();
  231. #endif
  232.             
  233.             return XAC_DONE;
  234.         }
  235.     }
  236.  
  237. #ifdef CLIP
  238.     clear_clip();
  239. #endif
  240.  
  241.     pb->intout[0] = 1;
  242.     return XAC_DONE;
  243. } 
  244.  
  245. unsigned long XA_form_alert(short clnt_pid, AESPB *pb)
  246. {
  247.     XA_CLIENT *client=Pid2Client(clnt_pid);
  248.     client->waiting_pb = pb;
  249.     
  250.     do_form_alert(pb->intin[0], (char*)pb->addrin[0], clnt_pid);
  251.  
  252.     return XAC_BLOCK;
  253. }
  254.  
  255. char error_alert[100];
  256. unsigned long XA_form_error(short clnt_pid, AESPB *pb)
  257. {
  258.     XA_CLIENT *client=Pid2Client(clnt_pid);
  259.     char *msg;
  260.     char icon;
  261.  
  262.     client->waiting_pb = pb;
  263.     
  264.     switch(pb->intin[0])
  265.     {
  266.         case 2:
  267.             msg = "File not found.";
  268.             icon = '5';
  269.             break;
  270.         case 3:
  271.             msg = "Path not found.";
  272.             icon = '5';
  273.             break;
  274.         case 4:
  275.             msg = "No more file handles.";
  276.             icon = '5';
  277.             break;
  278.         case 5:
  279.             msg = "Access denied.";
  280.             icon = '5';
  281.             break;
  282.         case 8:
  283.             msg = "Insufficient memory.";
  284.             icon = '6';
  285.             break;
  286.         case 10:
  287.             msg = "Invalid enviroment.";
  288.             icon = '6';
  289.             break;
  290.         case 11:
  291.             msg = "Invalid format.";
  292.             icon = '6';
  293.             break;
  294.         case 15:
  295.             msg = "Invalid drive specification.";
  296.             icon = '5';
  297.             break;
  298.         case 16:
  299.             msg = "Attempt to delete working directory.";
  300.             icon = '5';
  301.             break;
  302.         case 18:
  303.             msg = "No more files.";
  304.             icon = '5';
  305.             break;
  306.         default:
  307.             msg = "Unknown error.";
  308.             icon = '7';
  309.             break;
  310.         
  311.     }
  312.     
  313.     sprintf(error_alert, "[%c][ ERROR: | %s ][ Bugger ]", icon, msg);
  314.     
  315.     do_form_alert(1, error_alert, clnt_pid);
  316.  
  317.     return XAC_BLOCK;
  318. }
  319.  
  320. /*
  321.     Non-blocking form_do
  322.     - uses an object tree widget in a window to implement the form handler.
  323. */
  324. unsigned long XA_form_do(short clnt_pid, AESPB *pb)
  325. {
  326.     XA_CLIENT *client=Pid2Client(clnt_pid);
  327.     XA_WINDOW *dialog_window;
  328.     OBJECT *form = (OBJECT*)pb->addrin[0];
  329.     XA_WIDGET_LOCATION dialog_toolbar_loc = {LT, 3, 20};
  330.     short x, y, w, h;
  331.     short startedit;
  332.     
  333.     DIAGS(("form_do()\n"));
  334.  
  335.     client->waiting_pb = pb;
  336.     
  337.     if (!client->zen)            /* If the client hasn't called FMD_START (naughty), create a window for the dialog */
  338.     {
  339.         dialog_window = create_window(clnt_pid, 0, form->ob_x, form->ob_y, form->ob_width, form->ob_height);
  340.  
  341.         x = 2 * dialog_window->x - dialog_window->wx;
  342.         y = 2 * dialog_window->y - dialog_window->wy;
  343.         w = 2 * dialog_window->w - dialog_window->ww + 1;
  344.         h = 2 * dialog_window->h - dialog_window->wh + 1;
  345.  
  346.         delete_window(dialog_window);        /* Dispose of the temporary window we created */
  347.  
  348. #if PRESERVE_DIALOG_BGD
  349.         client->zen = dialog_window = create_window(clnt_pid, STORE_BACK | NO_MESSAGES | NO_WORK, x, y, w, h);
  350. #else
  351.         client->zen = dialog_window = create_window(clnt_pid, NO_MESSAGES | NO_WORK, x, y, w, h);
  352. #endif
  353.         dialog_window->created_by_FMD_START = FALSE;
  354.     /* Set the window title to be the clients name to avoid confusion */
  355.         dialog_window->widgets[XAW_TITLE].stuff = (void*)client->name;
  356.     }else{
  357.         dialog_window = client->zen;
  358.         dialog_window->owner = clnt_pid;
  359.         
  360.     }
  361.     
  362. //    client->waiting_for=XAWAIT_DIALOG|XAWAIT_KEY;
  363.     client->waiting_for=XAWAIT_DIALOG;
  364.     dialog_toolbar_loc.y = display.c_max_h + 10;
  365.     set_toolbar_widget(dialog_window, dialog_toolbar_loc, form);
  366.     
  367.     /*
  368.      * If there is an editable field, we'll need a keypress handler.
  369.      */
  370.     
  371.     startedit = pb->intin[0];
  372.     if (!startedit) {    /* If there's no set edit_obj field, search */
  373.         short f = 0;
  374.         do {
  375.             if (form[f].ob_flags & EDITABLE) {
  376.                 startedit = f;
  377.                 break;
  378.             }
  379.             f++;
  380.         } while (!(form[f].ob_flags & LASTOB));
  381.     }
  382.     
  383.     ((XA_WIDGET_TREE*)dialog_window->widgets[XAW_TOOLBAR].stuff)->owner = clnt_pid;
  384.     ((XA_WIDGET_TREE*)dialog_window->widgets[XAW_TOOLBAR].stuff)->edit_obj = startedit;
  385.     ((XA_WIDGET_TREE*)dialog_window->widgets[XAW_TOOLBAR].stuff)->edit_pos = 0;    /* Needed? */
  386.     
  387.     if (startedit) {    /* Set up keypress handler if needed */
  388.         TEDINFO *te = (TEDINFO*)form[startedit].ob_spec;
  389.         short f = 0;
  390.  
  391.         do {                                /* Ensure that there aren't two fields flagged as the */
  392.             form[f].ob_state &= ~IS_EDIT;        /* current edit field */
  393.             f++;
  394.         } while(!(form[f].ob_flags & LASTOB));
  395.         
  396.         dialog_window->keypress = &handle_form_key;
  397.         form[startedit].ob_state |= IS_EDIT;
  398.         te->te_tmplen = strlen(te->te_ptext);
  399.         ((XA_WIDGET_TREE*)dialog_window->widgets[XAW_TOOLBAR].stuff)->edit_pos = te->te_tmplen;
  400.  
  401.         CLIP(form, startedit, x, y, w, h);
  402.         v_hide_c(V_handle);
  403.         draw_object_tree(form, startedit, 2);
  404.         v_show_c(V_handle, 1);
  405.     }
  406.  
  407.     dialog_window->active_widgets |= (NO_MESSAGES | MOVE);    /* We don't want any redraw messages  */
  408.                                             /* - the widget handler will take care of it */
  409.     dialog_window->is_open = TRUE;
  410.  
  411. #if 0
  412.     v_hide_c(V_handle);
  413.     pull_wind_to_top(dialog_window);
  414.     display_window(dialog_window);
  415.     v_show_c(V_handle, 1);
  416. #endif
  417.  
  418.     return XAC_BLOCK;
  419. }
  420.  
  421. short XA_form_keybd(short clnt_pid, AESPB *pb)
  422. {
  423.     OBJECT *form = pb->addrin[0];
  424.     short ed_obj = pb->intin[0];
  425.     short keycode = pb->intin[1];
  426.     TEDINFO *ed_txt;
  427.     char *txt;
  428.     short o, x, y, w, h, last_ob;
  429.     
  430.     DIAGS(("form_keybd():%x,%x,%x\n", pb->intin[0], pb->intin[1], pb->intin[2]));
  431.     
  432.     pb->intout[0] = 1;
  433.     pb->intout[1] = ed_obj;
  434.     pb->intout[2] = 0;
  435.     
  436.     if (!(form[ed_obj].ob_flags & EDITABLE))
  437.         return XAC_DONE;
  438.  
  439.     ed_txt = (TEDINFO*)form[ed_obj].ob_spec;
  440.     txt = ed_txt->te_ptext;
  441.  
  442.     switch(keycode)
  443.     {
  444.     case 0x0f09:        /* TAB moves to next field */
  445.     case 0x5000:        /* DOWN ARROW also moves to next field */
  446.         if (form[ed_obj].ob_flags & LASTOB)    /* Loop round */
  447.             o = 0;
  448.         else
  449.             o = ed_obj;
  450.                 
  451.         for(o++; !(form[o].ob_flags & EDITABLE); o++)        /* search for next editable object */
  452.         {
  453.             if (form[o].ob_flags & LASTOB)    /* Loop round */
  454.                 o = 0;
  455.         }
  456.                 
  457.         break;
  458.     
  459.     case 0x5032:        /* SHIFT+DOWN ARROW moves to last field */
  460.         for(last_ob = 0; !(form[last_ob].ob_flags & LASTOB); last_ob++) ; /*find last object*/
  461.         o = last_ob;
  462.         for(; !(form[o].ob_flags & EDITABLE); o--) ;        /* search for last editable object */
  463.         break;
  464.             
  465.     case 0x4800:    /* UP ARROW moves to previous field */
  466.         for(last_ob = 0; !(form[last_ob].ob_flags & LASTOB); last_ob++) ; /*find last object*/
  467.                 
  468.         if (ed_obj == 1)    /* Loop round ? */
  469.             o = last_ob + 1;
  470.         else
  471.             o = ed_obj;
  472.                     
  473.         for(o--; !(form[o].ob_flags & EDITABLE); o--)        /* search for previous editable object */
  474.         {
  475.             if (o == 1)    /* Loop round */
  476.                 o = last_ob + 1;
  477.         }
  478.                 
  479.         break;
  480.     
  481.     case 0x4838:        /* SHIFT+UP ARROW moves to first field */
  482.         o = 0;
  483.         for(o++; !(form[o].ob_flags & EDITABLE); o++) ;    /* search for first editable object */
  484.         break;
  485.                     
  486.     case 0x1c0d:    /* Return - select default (if any) */
  487.         o = 0;
  488.         do{
  489.             if (form[o].ob_flags & DEFAULT)
  490.             {
  491.                 pb->intout[0] = 0;
  492.                 pb->intout[1] = o;
  493.                 return XAC_DONE;
  494.             }
  495.             o++;
  496.         } while(!(form[o].ob_flags & LASTOB));
  497.         break;
  498.                 
  499.     default:        /* just a plain key - insert character */
  500.         DIAGS(("passing character back to client\n"));
  501.         pb->intout[2] = keycode;
  502.         break;
  503.     }
  504.     switch(keycode) {    /* Moved from four places above. */
  505.     case 0x0f09:        /* All the common updating is */
  506.     case 0x5000:        /* done here now. */
  507.     case 0x5032:
  508.     case 0x4800:
  509.     case 0x4838:
  510.         if (o != ed_obj)    /* If edit field has changed, update the display */
  511.         {
  512.             form[o].ob_state |= IS_EDIT;
  513.             form[ed_obj].ob_state &= ~IS_EDIT;
  514.             
  515.             CLIP(form, ed_obj, x, y, w, h);
  516.             v_hide_c(V_handle);
  517.             draw_object_tree(form, ed_obj, 2);
  518.  
  519.             ((TEDINFO*)form[o].ob_spec)->te_tmplen = strlen(((TEDINFO*)form[o].ob_spec)->te_ptext);
  520.             
  521.             CLIP(form, o, x, y, w, h);
  522.             draw_object_tree(form, o, 2);
  523.             v_show_c(V_handle, 1);
  524.                 
  525.             pb->intout[1] = o;
  526.         }
  527.     }
  528.     
  529.     return XAC_DONE;
  530. }
  531.